home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
programr
/
wclass21.zip
/
PASCAL1.SCT
< prev
next >
Wrap
Text File
|
1995-01-16
|
3KB
|
91 lines
unit CLASS_FILENAME;
interface
[NO_RETURN NO_REPEAT uses INCLUDE_FILE ,DELETE_LAST_SYMBOL]
type
CLASS = object [(BASE_CLASS)]
[ ATTRIBUTE_NAME : ATTRIBUTE_TYPE ; ]
[ ASSOCIATION_ONE_NAME : ASSOCIATION_ONE_CLASS ; ]
[ AGGREGATION_ONE_NAME : AGGREGATION_ONE_CLASS ; ]
[ ASSOCIATION_MANY_NAME : array LITERAL_SYMBOL[1..10 LITERAL_SYMBOL] of ASSOCIATION_MANY_CLASS ; ]
[ AGGREGATION_MANY_NAME : array LITERAL_SYMBOL[1..10 LITERAL_SYMBOL] of AGGREGATION_MANY_CLASS ; ]
{Update to initialize ancestor fields.}
constructor DefaultInit;
{Update to initialize ancestor fields.}
constructor Init ( [a$ATTRIBUTE_NAME : ATTRIBUTE_TYPE DELETE_LAST_SYMBOL;] NO_RETURN);
constructor Copy (var A_$CLASS : CLASS );
destructor Done; virtual;
[ function Get$ATTRIBUTE_NAME : ATTRIBUTE_TYPE; ]{Accessor Get Function }
[ procedure Set$ATTRIBUTE_NAME ( a$ATTRIBUTE_NAME : ATTRIBUTE_TYPE ); ]{Accessor Set Procedure }
[ { create function with return if required. }
procedure OPERATION_NAME PASCAL_OPERATION_PARAMETERS_WITH_VAR ; PASCAL_OPERATION_VIRTUAL
]
end;
implementation
{-----------------------------------------------------------------------------------------------}
{Update to initialize ancestor fields.}
constructor CLASS$.DefaultInit;
begin
[ATTRIBUTE_NAME := ATTRIBUTE_INITIAL_VALUE; ]
end;
{-----------------------------------------------------------------------------------------------}
{Update to initialize ancestor fields.}
constructor CLASS$.Init ( [a$ATTRIBUTE_NAME : ATTRIBUTE_TYPE DELETE_LAST_SYMBOL;] NO_RETURN);
begin
[ATTRIBUTE_NAME := a$ATTRIBUTE_NAME;]
end;
{-----------------------------------------------------------------------------------------------}
constructor CLASS$.Copy (var A_$CLASS : CLASS );
begin
Self := A_$CLASS;
end;
{-----------------------------------------------------------------------------------------------}
{Update as required.}
destructor CLASS$.Done;
begin
end;
[{-----------------------------------------------------------------------------------------------}
{Accessor Get Function }
function CLASS.Get$ATTRIBUTE_NAME : ATTRIBUTE_TYPE;
begin
Get$ATTRIBUTE_NAME := ATTRIBUTE_NAME;
end;
]
[{-----------------------------------------------------------------------------------------------}
{Accessor Set Procedure }
procedure CLASS.Set$ATTRIBUTE_NAME ( a$ATTRIBUTE_NAME : ATTRIBUTE_TYPE );
begin
ATTRIBUTE_NAME := a$ATTRIBUTE_NAME;
end;
]
[{-----------------------------------------------------------------------------------------------}
{ create function with return if required.}
procedure CLASS.OPERATION_NAME PASCAL_OPERATION_PARAMETERS_WITH_VAR ;
begin
end;
]
end.